home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 081 / omam_112.arc / RSBBS.MAM < prev    next >
Text File  |  1987-11-29  |  3KB  |  118 lines
  1. ; RSBBS MAM Script
  2. ; This script is similar to the one I use on the RSBBS.
  3.  
  4. ; Define some macros ...
  5. DEFINE opus d:\opus
  6. DEFINE misc $opus$\misc
  7. DEFINE files d:\opus\files
  8. DEFINE arcs $files$\archives
  9.  
  10. ; Declare the log, user, and echo files ...
  11. FILE LOG d:\opus\log\mam.log
  12. FILE USER $opus$\user.bbs
  13. FILE ECHO d:\opus\nodelist\echo.ctl
  14.  
  15. ; Declare the paths ...
  16. PATH SYSTEM $opus$\
  17. PATH CUSTOM $opus$\notes\
  18.  
  19. ; When figuring the age of a message, I want RASMAM to use the date the
  20. ; message arrived on the system ...
  21. DATE ARRIVED
  22.  
  23. ; The following are for the messages waiting lists ...
  24. FILE HEADER $misc$\opuswait.hdr $misc$\graphics.hdr
  25. FORMAT C
  26.  
  27. ---------- PICTURE GALLERY COMMANDS --------------
  28.  
  29. ; Point to temporary directory ...
  30. DEFINE temp $opus$\temp\
  31. PATH TEMP $temp$
  32.  
  33. ; Use SEA's arc utility ...
  34. ARC
  35.  
  36. ; Handle ANSI pictures (these go to EDTORIAL.GBS) ...
  37. PICTURE FILE $misc$\ansi.arc
  38. PICTURE HEADER $misc$\ansi.hdr
  39. PICTURE TRAILER $misc$\ansi.trl
  40. PICTURE INDEX $misc$\ansi.idx
  41. PICTURE NEXT TO $misc$\edtorial.gbs
  42.  
  43. ; Handle ASCII pictures (these goto EDTORIAL.BBS) ...
  44. PICTURE FILE $misc$\ascii.arc
  45. PICTURE HEADER $misc$\ascii.hdr
  46. PICTURE TRAILER $misc$\ascii.trl
  47. PICTURE INDEX $misc$\ascii.idx
  48. PICTURE NEXT TO $misc$\edtorial.bbs
  49.  
  50. ; You can use the Picture Gallery commands to make your bulletin or
  51. ; log file change each day!
  52.  
  53. --------------------- Process Message Areas -------------------
  54.  
  55. ; I have a listing in my user list for "All" to keep someone
  56. ; from logging on as "ALL."   The following keeps message
  57. ; waiting lists from being generated for "ALL":
  58.  
  59. LOCK all
  60.  
  61. : Ben-z Lawrence, James Young, and Steve Marcussen  are local Sysops who
  62. ; share their GENERAL message area (and other areas) with the RSBBS.
  63. ; Since they read the messages on their own boards, I use LOCK
  64. ; and UNLOCK so MAM only checks areas for them that they don't
  65. ; get on their on board.
  66.  
  67. LOCK Ben-z Lawrence
  68. LOCK James Young
  69. LOCK Steven Marcussen
  70.  
  71. AREA general ECHO
  72.   WAIT
  73.   RENUM SUBJECT
  74.   ARCHIVE KEEP 75 TO $arcs$\chat#YEAR#.$MONTH$
  75. END AREA
  76.  
  77. UNLOCK James Young
  78. UNLOCK Ben-z Lawrence
  79. UNLOCK Steven Marcussen
  80.  
  81. AREA comment
  82.   WAIT
  83.   RENUM
  84.   KILL KEEP 50
  85.   KILL RECEIVED PRIVATE
  86. END AREA
  87.  
  88. LOCK Steven Marcussen
  89. LOCK Ben-z Lawrence
  90. LOCK James Young
  91.  
  92. AREA net
  93.   WAIT
  94.   RENUM SUBJECT
  95.   KILL RECEIVED DAYS 2
  96.   KILL DAYS 7
  97. END AREA
  98.  
  99. ; I don't allow anyone with less than PRIVIL priv's to get to MEADOW,
  100. ; so ...
  101.  
  102. LOCK TWIT
  103. LOCK DISGRACE
  104. LOCK NORMAL
  105.  
  106. ; For MEADOW I want the KILL command to delete any message WRITTEN more
  107. ; than 15 days ago, so I use ...
  108. DATE WRITTEN
  109.  
  110. AREA meadow ECHO
  111.   WAIT
  112.   RENUM SUBJECT
  113.   KILL DAYS 15
  114. END AREA
  115.  
  116. ; Add trailer's to custom welcomes ...
  117. FILE TRAILER $misc$\opuswait.trl
  118.